home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / Q-R / ResGenie™ 1.0 / ResGenie™ / ResGenie™.rsrc / TEXT_199_maketwo.txt < prev    next >
Encoding:
Text File  |  1993-08-02  |  465 b   |  13 lines
  1. global colorauthoringpath
  2. global movefileone
  3. global MoveFileTwo
  4. global MovePathTwo
  5. if there is not a window movefileone then do restext("TEXT", "Exit", colorauthoringpath)
  6. answer file "Choose any file to move resources to or from:"
  7. if it is empty then
  8. if there is a window movefileone then close window movefileone
  9. do restext("TEXT", "Exit", colorauthoringpath)
  10. end if
  11. set cursor to watch
  12. put it into MovePathTwo
  13. do restext ("TEXT", "FinishTwo", colorauthoringpath)